Private Sub Workbook_Open()
    Dim newSheetName As String
    Dim dialogResult As VbMsgBoxResult
    
    newSheetName = DateTime.Now
    newSheetName = Strings.Replace(Strings.Replace(newSheetName, "/", ""), ":", "")
    
    dialogResult = MsgBox("A sheet named as [" & newSheetName & "] will be created to save your old data, is it ok?", vbQuestion + vbOKCancel + vbDefaultButton1, "bakup Prompt")
    If dialogResult = vbOK Then
        ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(1)
        ThisWorkbook.Sheets(2).Name = newSheetName
        ThisWorkbook.Sheets(1).Select
        Range("A1:E32").Select
        Selection.Copy
        ThisWorkbook.Sheets(2).Select
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Selection.Columns.AutoFit
        Range("A1").Select
        ThisWorkbook.Sheets(1).Select
        Range("A1").Select
        Application.CutCopyMode = False
    End If
    
    
End Sub
